home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 9 / FM Towns Free Software Collection 9.iso / t_os / tool / wings / w2_src / filer.c < prev    next >
C/C++ Source or Header  |  1994-11-16  |  21KB  |  679 lines
  1. #include <dos.h>
  2. #include <egb.h>
  3. #include <mos.h>
  4. #include <cdrfrb.h>
  5. #include <direct.h>
  6. #include <string.h>
  7. #include <msdos.cf>
  8. #include "define.h"
  9. #include "module.h"
  10. #include "extend.h"
  11. #include "font_sub.h"
  12. #include "filer.h"
  13.  
  14. #define BS 8
  15. #define    FILER_COL_1 8
  16. #define    FILER_COL_2 1
  17. #define    FILER_COL_3 2
  18. #define    FILER_COL_4 15
  19. #define    FILER_COL_5 10
  20.  
  21. static    char    f_name[1024][16], f_attr[1024];
  22. static    char    crr_dir[81];
  23. static    int        page, fx = 132, fy = 135;
  24. static    long    file_size[1024];
  25.  
  26. // ファイルセレクタ関数群
  27. int        filer( char *egbwork, char *strptn, int type, char *name, long *s )
  28. { 
  29.  
  30.     char    key_buff[ 2 ];
  31.     int        i, j, k, m, n, o, ch, mx, my, flag = 0, not_ready, protect;
  32.     int        x1, y1, x2, y2, x3, y3, moji, key_mode;
  33.     UINT    c_drv, d_drv, egb_sel;
  34.     struct {
  35.         short    x1, y1, x2, y2;
  36.     } scroll = { fx + 118, fy +  55, fx + 327, fy + 186 };
  37.     
  38.     char    drv[ 17 ][ 3 ] = {  "Ａ", "Ｂ", "Ｃ", "Ｄ",
  39.                                 "Ｅ", "Ｆ", "Ｇ", "Ｈ",
  40.                                 "Ｉ", "Ｊ", "Ｋ", "Ｌ",
  41.                                 "Ｍ", "Ｎ", "Ｏ", "Ｐ", "Ｑ" };
  42.     *name = '\0';
  43.     j = k = n = o = *s = 0;
  44.     MOS_sleep;
  45.     egb_sel = getds( );
  46.     page = ( EGB_getWritePage( egbwork, egb_sel ) ) ? PAGE_1 : PAGE_0;
  47.     display_filer( egbwork, strptn );
  48.     _dos_getdrive( &c_drv );
  49.     if( c_drv<=2 ){
  50.         disk_status( ( int )c_drv - 1, ¬_ready, &protect );
  51.         n = j = k = 0;
  52.         if( !not_ready ){
  53.             get_filename( &n );
  54.             put_filename( strptn, &j, &k, n );
  55.         }
  56.     }
  57.     else if( c_drv==17 ){
  58.         i = cdr_status( 0, 0, 0 );
  59.         if( !i ){
  60.             get_filename( &n );
  61.             put_filename( strptn, &j, &k, n );
  62.         }
  63.          else
  64.             n = j = k = 0;
  65.     }
  66.     else{
  67.         get_filename( &n );
  68.         put_filename( strptn, &j, &k, n );
  69.     }
  70.     font_kan_col( FILER_COL_1, FILER_COL_4 );
  71.     font_kan( strptn, page, POS( fx+50, fy+43 ), drv[ c_drv - 1 ], 0 );
  72.     MOS_awake;
  73.     goto loop;
  74. jump_b:    ; ;
  75.     display_filer( egbwork, strptn );
  76.     _dos_getdrive( &c_drv );
  77.     if( flag ){
  78.         if( c_drv<=2 ){
  79.             disk_status( ( int )c_drv - 1, ¬_ready, &protect );
  80.             n = j = k = 0;
  81.             if( !not_ready ){
  82.                 get_filename( &n );
  83.                 put_filename( strptn, &j, &k, n );
  84.             }
  85.         }
  86.         else if( c_drv==17 ){
  87.             i = cdr_status( 0, 0, 0 );
  88.             if( !i ){
  89.                 get_filename( &n );
  90.                 put_filename( strptn, &j, &k, n );
  91.             }
  92.         }
  93.         else{
  94.             get_filename( &n );
  95.             put_filename( strptn, &j, &k, n );
  96.         }
  97.     }
  98.     if( *name ){
  99.         font_ank_col( FILER_COL_1, FILER_COL_4 );
  100.         font_kan_col( FILER_COL_1, FILER_COL_4 );
  101.         font_mix( strptn, page, POS( fx+12, fy+146 ), name, 0 );
  102.     }
  103.     if( type )
  104.         line( egbwork, fx+15+o*6, fy+147, fx+15+o*6, fy+156, FILER_COL_5 );
  105.     m = 8;
  106.     font_kan_col( FILER_COL_1, FILER_COL_4 );
  107.     font_kan( strptn, page, POS( fx+50, fy+43 ), drv[ c_drv - 1 ], 0 );
  108.     scroll.x1 = fx + 118;
  109.     scroll.y1 = fy +  55;
  110.     scroll.x2 = fx + 327;
  111.     scroll.y2 = fy + 186;
  112.     MOS_awake;
  113. loop:    ; ;
  114.     do {
  115.         MOS_rdpos( &ch, &mx, &my );
  116.     } while( ch==2 );
  117.     if( ch && cmp( mx,fx+40,fx+71 ) && cmp( my,fy+32,fy+63 ) ){
  118.         _dos_getdrive( &c_drv );
  119.         if( c_drv==17 ){
  120.             i = cdr_status( 0, 0, 0 );
  121.             if( i )
  122.                 goto loop;
  123.         }
  124.         if( c_drv<=2 ){
  125.             disk_status( ( int )c_drv - 1, ¬_ready, &protect );
  126.             if( not_ready )
  127.                 goto    loop;
  128.         }
  129.         MOS_sleep;
  130.         box( egbwork, fx +  70, fy +  32, fx +  71, fy +  63, FILER_COL_4 );
  131.         box( egbwork, fx +  40, fy +  62, fx +  71, fy +  63, FILER_COL_4 );
  132.         frame( egbwork, fx +  40, fy +  32, fx +  71, fy +  63, FILER_COL_1 );
  133.         frame( egbwork, fx +  41, fy +  33, fx +  71, fy +  63, FILER_COL_1 );
  134.         sleep( 10 );
  135.         get_filename( &n );
  136.         put_filename( strptn, &j, &k, n );
  137.         box( egbwork, fx +  40, fy +  32, fx +  71, fy +  33, FILER_COL_4 );
  138.         box( egbwork, fx +  40, fy +  32, fx +  41, fy +  63, FILER_COL_4 );
  139.         frame( egbwork, fx +  40, fy +  32, fx +  70, fy +  62, FILER_COL_1 );
  140.         frame( egbwork, fx +  40, fy +  32, fx +  71, fy +  63, FILER_COL_1 );
  141.         MOS_awake;
  142.     }
  143.     if( ch && n && cmp( mx,fx+344,fx+359 ) && cmp( my,fy+160,fy+175 ) &&
  144.         j>=11 ){
  145.         MOS_sleep;
  146.         button_on( egbwork, fx+344, fy+160, fx+359, fy+175 );
  147.         EGB_color( egbwork, 1, FILER_COL_4 );
  148.         sleep( 10 );
  149.         font_ank_col( FILER_COL_1, FILER_COL_4 );
  150.         font_kan_col( FILER_COL_1, FILER_COL_4 );
  151.         while( ch==1 && j>=11 ){
  152.             EGB_partScroll( egbwork, 1, 0, 12, ( char *)&scroll );
  153.             j--;
  154.             if( f_attr[ j - k ]==1 ){
  155.                 font_ank( strptn, page, POS( fx+120, fy+55 ),
  156.                                                         "<             >", 0 );
  157.                 font_mix( strptn, page, POS( fx+128, fy+55 ),
  158.                                                         f_name[ j-10 ], 0 );
  159.             }
  160.             else
  161.                 font_mix( strptn, page, POS( fx+120, fy+55 ),
  162.                                                         f_name[ j-10 ], 0 );
  163.             font_10( strptn, 
  164.                 page, POS( fx+280, fy+55 ), ( int )file_size[ j - 10 ], 8, 1 );
  165.             sleep( 2 );
  166.             MOS_rdpos( &ch, 0, 0 );
  167.         }
  168.         button_off( egbwork, fx+344, fy+160, fx+359, fy+175 );
  169.         frame( egbwork, fx+344, fy+160, fx+359, fy+175, FILER_COL_1 );
  170.         MOS_awake;
  171.     }
  172.     if( ch && n && cmp( mx,fx+344,fx+359 ) && cmp( my,fy+176,fy+191 ) &&
  173.         n>=j+2 ){
  174.         MOS_sleep;
  175.         button_on( egbwork, fx+344, fy+176, fx+359, fy+191 );
  176.         EGB_color( egbwork, 1, FILER_COL_4 );
  177.         sleep( 10 );
  178.         font_ank_col( FILER_COL_1, FILER_COL_4 );
  179.         font_kan_col( FILER_COL_1, FILER_COL_4 );
  180.         while( ch==1 && n>=j+2 ){
  181.             EGB_partScroll( egbwork, 1, 0, -12, ( char *)&scroll );
  182.             j++;
  183.             if( f_attr[ j ]==1 ){
  184.                 font_ank( strptn, page, POS( fx+120, fy+175 ),
  185.                                                         "<             >", 0 );
  186.                 font_mix( strptn, page, POS( fx+128, fy+175 ),
  187.                                                         f_name[ j ], 0 );
  188.             }
  189.             else
  190.                 font_mix( strptn, page, POS( fx+120, fy+175 ),
  191.                                                         f_name[ j ], 0 );
  192.             font_10( strptn, 
  193.                 page, POS( fx+280, fy+175 ), ( int )file_size[ j ], 8, 1 );
  194.             sleep( 2 );
  195.             MOS_rdpos( &ch, 0, 0 );
  196.         }
  197.         button_off( egbwork, fx+344, fy+176, fx+359, fy+191 );
  198.         frame( egbwork, fx+344, fy+176, fx+359, fy+191, FILER_COL_1 );
  199.         MOS_awake;
  200.     }
  201.     if( ch && n && cmp( mx, fx+120, fx+327 ) && cmp( my, fy+55, fy+66+k*12 ) ){
  202.         MOS_sleep;
  203.         m = ( my - fy - 55 ) / 12;
  204.         font_ank_col( FILER_COL_4, FILER_COL_1 );
  205.         font_kan_col( FILER_COL_4, FILER_COL_1 );
  206.         font_ank( strptn, page, POS( fx+120, fy+55+m*12 ),
  207.         "                                   ", 0 );
  208.         font_mix( strptn, page, POS( fx+120, fy+55+m*12 ),
  209.                                                      f_name[ j-k+m ], 0 );
  210.         font_10( strptn, 
  211.             page, POS( fx+280, fy+55+m*12 ), ( int )file_size[ j-k+m ], 8, 1 );
  212.         sleep( 10 );
  213.         do{
  214.             MOS_rdpos( &ch, 0, 0 );
  215.         }while( ch==1 );
  216.         font_ank_col( FILER_COL_1, FILER_COL_4 );
  217.         font_kan_col( FILER_COL_1, FILER_COL_4 );
  218.         font_ank( strptn, page, POS( fx+120, fy+55+m*12 ),
  219.                                   "                                   ", 0 );
  220.         font_mix( strptn, page, POS( fx+120, fy+55+m*12 ),
  221.                                                     f_name[ j-k+m ], 0 );
  222.         font_10( strptn, 
  223.             page, POS( fx+280, fy+55+m*12 ), ( int )file_size[ j-k+m ], 8, 1 );
  224.         if( f_attr[ j-k+m ]==1 ){
  225.             font_ank_col( FILER_COL_4, FILER_COL_4 );
  226.             font_ank( strptn, page, POS( fx+12, fy+145 ), "             ", 0 );
  227.             font_ank_col( FILER_COL_1, FILER_COL_4 );
  228.             *name = '\0';
  229.             *s = 0;
  230.             _chdir( f_name[ j-k+m ] );
  231.             box( egbwork, fx+113, fy+25, fx+334, fy+ 38, FILER_COL_4 );
  232.             box( egbwork, fx+118, fy+55, fx+327, fy+186, FILER_COL_4 );
  233.             if( type )
  234.                 line( egbwork,fx+15+o*6,fy+147,fx+15+o*6,fy+156,FILER_COL_5 );
  235.             sleep( 10 );
  236.             m = 8;
  237.             get_filename( &n );
  238.             put_filename( strptn, &j, &k, n );
  239.             MOS_awake;
  240.             goto loop;
  241.         }
  242.         if( f_attr[ j-k+m ]==2 ){
  243.             font_ank_col( FILER_COL_4, FILER_COL_4 );
  244.             font_ank( strptn, page, POS( fx+12, fy+145 ), "             ", 0 );
  245.             font_ank_col( FILER_COL_1, FILER_COL_4 );
  246.             *name = '\0';
  247.             *s = 0;
  248.             i = 0;
  249.             while( crr_dir[ i ] )
  250.                 i++;
  251.             while( crr_dir[ i ]!='\\' )
  252.                 i--;
  253.             i==2 ? crr_dir[ 3 ] = '\0':crr_dir[ i ] = '\0';
  254.             _chdir( crr_dir );
  255.             box( egbwork, fx+113, fy+25, fx+334, fy+ 38, FILER_COL_4 );
  256.             box( egbwork, fx+118, fy+55, fx+327, fy+186, FILER_COL_4 );
  257.             if( type )
  258.                 line( egbwork,fx+15+o*6,fy+147,fx+15+o*6,fy+156,FILER_COL_5 );
  259.             sleep( 10 );
  260.             m = 8;
  261.             get_filename( &n );
  262.             put_filename( strptn, &j, &k, n );
  263.             MOS_awake;
  264.             goto loop;
  265.         }
  266.         *name = '\0';
  267.         box( egbwork, fx+12, fy+145, fx+100, fy+157, FILER_COL_4 );
  268.         font_ank_col( FILER_COL_1, FILER_COL_4 );
  269.         font_kan_col( FILER_COL_1, FILER_COL_4 );
  270.         font_mix( strptn, page, POS( fx+12, fy+146 ), f_name[ j-k+m ], 0 );
  271.         strcpy( name, f_name[ j-k+m ] );
  272.         *s = file_size[ j-k+m ];
  273.         if( type )
  274.             line( egbwork, fx+15+o*6, fy+147, fx+15+o*6, fy+156, FILER_COL_5 );
  275.         MOS_awake;
  276.     }
  277.     if( ch && cmp( mx, fx+16, fx+31 ) && cmp( my, fy+32, fy+63 ) ){
  278.         MOS_sleep;
  279.         button_on( egbwork, fx+16, fy+32, fx+31, fy+63 );
  280.         box( egbwork, fx+12, fy+145, fx+100, fy+157, FILER_COL_4 );
  281.         *name = '\0';
  282.         *s = 0;
  283. loop_1:    c_drv--;
  284.         if( c_drv==3 )
  285.             c_drv--;
  286. loop_a:    _dos_setdrive( c_drv, &d_drv );
  287.         _dos_getdrive( &d_drv );
  288.         if( d_drv!=c_drv ){
  289.             if( c_drv==0 ){
  290.                 c_drv = 17;
  291.                 goto loop_a;
  292.             }
  293.             c_drv--;
  294.             if( c_drv==3 )
  295.                 c_drv--;
  296.             goto loop_a;
  297.         }
  298.         c_drv = d_drv;
  299.         _dos_setdrive( c_drv, &d_drv );
  300.         font_kan_col( FILER_COL_1, FILER_COL_4 );
  301.         font_kan( strptn, page, POS( fx+50, fy+43 ), drv[ c_drv - 1 ], 0 );
  302.         sleep( 10 );
  303.         button_off( egbwork, fx+16, fy+32, fx+31, fy+63 );
  304.         frame( egbwork, fx+16, fy+32, fx+31, fy+63, FILER_COL_1 );
  305.         box( egbwork, fx+113, fy+25, fx+334, fy+ 38, FILER_COL_4 );
  306.         box( egbwork, fx+118, fy+55, fx+327, fy+187, FILER_COL_4 );
  307.         if( type )
  308.             line( egbwork, fx+15+o*6, fy+147, fx+15+o*6, fy+156, FILER_COL_5 );
  309.         n = flag = 0;
  310.         MOS_awake;
  311.     }
  312.     if( ch && cmp( mx, fx+80, fx+95 ) && cmp( my, fy+32, fy+63 ) ){
  313.         MOS_sleep;
  314.         button_on( egbwork, fx+80, fy+32, fx+95, fy+63 );
  315.         box( egbwork, fx+12, fy+145, fx+100, fy+157, FILER_COL_4 );
  316.         *name = '\0';
  317.         *s = 0;
  318. loop_2:    c_drv++;
  319.         if( c_drv==3 )
  320.             c_drv++;
  321. loop_b:    _dos_setdrive( c_drv, &d_drv );
  322.         _dos_getdrive( &d_drv );
  323.         if( d_drv!=c_drv ){
  324.             c_drv++;
  325.             if( c_drv>=18 )
  326.                 c_drv = 0;
  327.             else if( c_drv==3 )
  328.                 c_drv++;
  329.             goto loop_b;
  330.         }
  331.         c_drv = d_drv;
  332.         _dos_setdrive( c_drv, &d_drv );
  333.         font_kan_col( FILER_COL_1, FILER_COL_4 );
  334.         font_kan( strptn, page, POS( fx+50, fy+43 ), drv[ c_drv - 1 ], 0 );
  335.         sleep( 10 );
  336.         button_off( egbwork, fx+80, fy+32, fx+95, fy+63 );
  337.         frame( egbwork, fx+80, fy+32, fx+95, fy+63, FILER_COL_1 );
  338.         box( egbwork, fx+113, fy+25, fx+334, fy+ 38, FILER_COL_4 );
  339.         box( egbwork, fx+118, fy+55, fx+327, fy+187, FILER_COL_4 );
  340.         if( type )
  341.             line( egbwork, fx+15+o*6, fy+147, fx+15+o*6, fy+156, FILER_COL_5 );
  342.         n = flag = 0;
  343.         MOS_awake;
  344.     }
  345.     if( ch && cmp( mx, fx+1, fx+16 ) && cmp( my, fy+1, fy+16 ) ){
  346.         MOS_sleep;
  347.         EGB_writeMode( egbwork, XOR );
  348.         button_on( egbwork, fx+1, fy+1, fx+16, fy+16 );
  349.         sleep( 10 );
  350.         button_off( egbwork, fx+1, fy+1, fx+16, fy+16 );
  351.         EGB_writeMode( egbwork, PSET );
  352.         putimage( egbwork, fx, fy, fx + 375, fy + 209, 10 );
  353.         MOS_awake;
  354.         return( 1 );
  355.     }
  356.     if( ch && cmp( mx, fx+24, fx+55 ) && cmp( my, fy+176, fy+191 ) ){
  357.         MOS_sleep;
  358.         font_kan_col( FILER_COL_4, FILER_COL_1 );
  359.         font_kan( strptn, page, POS( fx+28, fy+178 ), "実行", 0 );
  360.         sleep( 10 );
  361.         font_kan_col( FILER_COL_1, FILER_COL_4 );
  362.         font_kan( strptn, page, POS( fx+28, fy+178 ), "実行", 0 );
  363.         putimage( egbwork, fx, fy, fx + 375, fy + 209, 10 );
  364.         MOS_awake;
  365.         if( *name )
  366.             return( 0 );
  367.         else
  368.             return( 1 );
  369.     }
  370.     if( ch && cmp( mx, fx+72, fx+103 ) && cmp( my, fy+176, fy+191 ) ){
  371.         MOS_sleep;
  372.         font_kan_col( FILER_COL_4, FILER_COL_1 );
  373.         font_kan( strptn, page, POS( fx+76, fy+178 ), "取消", 0 );
  374.         sleep( 10 );
  375.         font_kan_col( FILER_COL_1, FILER_COL_4 );
  376.         font_kan( strptn, page, POS( fx+76, fy+178 ), "取消", 0 );
  377.         putimage( egbwork, fx, fy, fx + 375, fy + 209, 10 );
  378.         MOS_awake;
  379.         return( 1 );
  380.     }
  381.     if( ch && cmp( mx, fx+17, fx+354 ) && cmp( my, fy+1, fy+16 ) ){
  382.         MOS_sleep;
  383.         x2 = mx - fx;
  384.         y2 = my - fy;
  385.         MOS_horizon( x2, 264 + x2 );
  386.         MOS_vertical( y2, 270 + y2 );
  387.         EGB_writeMode( egbwork, XOR );
  388.         frame( egbwork, fx, fy, fx + 375, fy + 209, FILER_COL_4 );
  389.         x1 = mx - x2;
  390.         y1 = my - y2;
  391.         MOS_rdpos( &ch, &x3, &y3 );
  392.         while( ch==1 ){
  393.             if( mx!=x3 || my!=y3 ){
  394.                 frame( egbwork, x1, y1, x1 + 375, y1 + 209, FILER_COL_4 );
  395.                 x1 = x3 - x2;
  396.                 y1 = y3 - y2;
  397.                 frame( egbwork, x1, y1, x1 + 375, y1 + 209, FILER_COL_4 );
  398.             }
  399.             mx = x3;
  400.             my = y3;
  401.             MOS_rdpos( &ch, &x3, &y3 );
  402.         }
  403.         frame( egbwork, x1, y1, x1 + 375, y1 + 209, FILER_COL_4 );
  404.         EGB_writeMode( egbwork, PSET );
  405.         MOS_horizon( 0, 639 );
  406.         MOS_vertical( 0, 479 );
  407.         if( fx!=x1 || fy!=y1 ){
  408.             putimage( egbwork, fx, fy, fx + 375, fy + 209, 10 );
  409.             fx = x1;
  410.             fy = y1;
  411.             flag = 1;
  412.             goto jump_b;
  413.         }
  414.         MOS_awake;
  415.     }
  416.     if( type ){
  417.         moji = key_read( &key_mode, 0 );
  418.         font_kan_col( FILER_COL_1, FILER_COL_4 );
  419.         if( !key_mode )
  420.             font_kan( strptn, page, POS( fx+72, fy+128 ), "英小", 0 );
  421.         else if( key_mode==1 )
  422.             font_kan( strptn, page, POS( fx+72, fy+128 ), "英大", 0 );
  423.         else
  424.             font_kan( strptn, page, POS( fx+72, fy+128 ), "カナ", 0 );
  425.         if( moji ){
  426.             if( moji==BS ){
  427.                 MOS_sleep;
  428.                 font_ank( strptn, page, POS( fx+12+o*6, fy+146 ), " ", 0 );
  429.                 *( name + o ) = 0x20;
  430.                 *( name + o+1 ) = '\0';
  431.                 if( o!=0 )
  432.                     o--;
  433.                 line( egbwork,fx+15+o*6,fy+147,fx+15+o*6,fy+156,FILER_COL_5 );
  434.                 MOS_awake;
  435.             }
  436.             else if( moji>=0x20 ){
  437.                 MOS_sleep;
  438.                 *( name + o ) = moji;
  439.                 *( name + o+1 ) = '\0';
  440.                 key_buff[ 0 ] = moji;
  441.                 key_buff[ 1 ] = 0;
  442.                 font_ank( strptn, page, POS( fx+12+o*6, fy+146 ), key_buff, 0);
  443.                 if( o!=11 )
  444.                     o++;
  445.                 line( egbwork,fx+15+o*6,fy+147,fx+15+o*6,fy+156,FILER_COL_5 );
  446.                 MOS_awake;
  447.             }
  448.         }
  449.     }
  450.     goto loop;
  451.  
  452. }
  453. void    sort( int n )
  454. {
  455.  
  456.     char    buff_a[ 15 ], buff_b;
  457.     int        i, j, k, l;
  458.     long    s;
  459.     i = 0;
  460.     while( f_attr[ i ]!=0 && i<=n-1 )
  461.         i++;
  462.     if( i>=n ){
  463.         i = j = k = 0;
  464.         goto jump;
  465.     }
  466.     j = k = i;
  467.     for( i=j;i<=n-1;i++ ){
  468.         if( f_attr[ i ]==1 ){
  469.             strcpy( buff_a, f_name[ k ] );
  470.             strcpy( f_name[ k ], f_name[ i ] );
  471.             strcpy( f_name[ i ], buff_a );
  472.             buff_b = f_attr[ k ];
  473.             f_attr[ k ] = f_attr[ i ];
  474.             f_attr[ i ] = buff_b;
  475.             s = file_size[ k ];
  476.             file_size[ k ] = file_size[ i ];
  477.             file_size[ i ] = s;
  478.             k++;
  479.         }
  480.     }
  481.     if( f_attr[ 0 ]==2 )
  482.         l = 1;
  483.     else
  484.         l = 0;
  485.     if( k<=l+1 )
  486.         goto jump;
  487.     for( j=l;j<=k-2;j++ ){
  488.         for( i=l;i<=k-2-j;i++ ){
  489.             if( strcmp( f_name[ i ], f_name[ i+1 ] )>=1 ){
  490.                 strcpy( buff_a, f_name[ i+1 ] );
  491.                 strcpy( f_name[ i+1 ], f_name[ i ] );
  492.                 strcpy( f_name[ i ], buff_a );
  493.                 s = file_size[ i+1 ];
  494.                 file_size[ i+1 ] = file_size[ i ];
  495.                 file_size[ i ] = s;
  496.             }
  497.         }
  498.     }
  499. jump:    ; ;
  500.     for( j=0;j<=n-2-k;j++ ){
  501.         for( i=k;i<=n-2-j;i++ ){
  502.             if( strcmp( f_name[ i ], f_name[ i+1 ] )>=1 ){
  503.                 strcpy( buff_a, f_name[ i+1 ] );
  504.                 strcpy( f_name[ i+1 ], f_name[ i ] );
  505.                 strcpy( f_name[ i ], buff_a );
  506.                 s = file_size[ i+1 ];
  507.                 file_size[ i+1 ] = file_size[ i ];
  508.                 file_size[ i ] = s;
  509.             }
  510.         }
  511.     }
  512.  
  513. }
  514. void    get_filename( int    *n )
  515. {
  516.  
  517.     struct    find_t file;
  518.     
  519.     *n = 0;
  520.     if( _dos_findfirst( "*.*", _A_SUBDIR, &file )==0 ){
  521.         if( file.name[ 0 ]!='.' ){
  522.             strcpy( f_name[ *n ], file.name );
  523.             file_size[ *n ] = file.size;
  524.             if( file.attrib==16 )
  525.                 f_attr[ *n ] = 1;
  526.             else
  527.                 f_attr[ *n ] = 0;
  528.             *n += 1;
  529.         }
  530.         while( _dos_findnext( &file )==0 && *n<=1023 ){
  531.             strcpy( f_name[ *n ], file.name );
  532.             file_size[ *n ] = file.size;
  533.             if( file.attrib==16 )
  534.                 f_attr[ *n ] = 1;
  535.             else
  536.                 f_attr[ *n ] = 0;
  537.             *n += 1;
  538.         }
  539.     }
  540.     if( *n ){
  541.         if( f_name[ 0 ][ 0 ]=='.' )
  542.             f_attr[ 0 ] = 2;
  543.         sort( *n );
  544.         if( f_attr[ 0 ]==2 )
  545.             strcpy( f_name[ 0 ], "<<Directry_Up>>" );
  546.     }
  547. }
  548. void    put_filename( char *strptn, int *j, int *k, int n )
  549. {
  550.  
  551.     char    dir[37];
  552.     int        i;
  553.     UINT    a, b, c, c_drv;
  554.     ULONG    d;
  555.     struct diskfree_t disk;
  556.  
  557.     _dos_getdrive( &c_drv );
  558.     _dos_getdiskfree( c_drv, &disk );
  559.     a = disk.avail_clusters;
  560.     b = disk.sectors_per_cluster;
  561.     c = disk.bytes_per_sector;
  562.     d = a * b * c;
  563.     font_10( strptn, page, POS( fx+34, fy+98 ), ( int )d, 9, 1 );
  564.     _getcwd( crr_dir, 80 );
  565.     _rstrncpy( dir, crr_dir, 35 );
  566.     dir[ 35 ] = '\0';
  567.     font_ank_col( FILER_COL_1, FILER_COL_4 );
  568.     font_kan_col( FILER_COL_1, FILER_COL_4 );
  569.     font_mix( strptn, page, POS( fx+120, fy+26 ), dir, 34 );
  570.     if( n ){
  571.         n<=10 ? *j = *k = n-1 : *j = *k = 10;
  572.         for( i=0;i<=*j;i++ ){
  573.             if( f_attr[ i ]==1 ){
  574.                 font_ank( strptn, page, POS( fx+120, fy+55+i*12 ), 
  575.                 "<             >", 0 );
  576.                 font_mix( strptn, page, POS( fx+128, fy+55+i*12 ),
  577.                                                             f_name[i], 0 );
  578.             }
  579.             else
  580.                 font_mix( strptn, page, POS( fx+120, fy+55+i*12 ),
  581.                                                             f_name[i], 0 );
  582.             font_10( strptn, 
  583.                 page, POS( fx+280, fy+55+i*12 ), ( int )file_size[ i ], 8, 1 );
  584.         }
  585.     }
  586.     
  587. }
  588. void    display_filer( char *egbwork, char *strptn )
  589. {
  590.  
  591.     int        i, j;
  592.     
  593.     getimage( egbwork, fx, fy, fx + 375, fy + 209, 10 );
  594.     box( egbwork, fx      , fy     , fx + 375, fy + 209, FILER_COL_1 );
  595.     box( egbwork, fx +   1, fy + 19, fx + 372, fy + 206, FILER_COL_4 );
  596.     box( egbwork, fx + 176, fy +  1, fx + 354, fy +  17, FILER_COL_3 );
  597.     box( egbwork, fx + 353, fy +  1, fx + 372, fy +  17, FILER_COL_2 );
  598.     frame( egbwork, fx +  40, fy +  32, fx +  70, fy +  62, FILER_COL_1 );
  599.     frame( egbwork, fx +  40, fy +  32, fx +  71, fy +  63, FILER_COL_1 );
  600.     frame( egbwork, fx +   8, fy +  96, fx + 103, fy + 111, FILER_COL_1 );
  601.     frame( egbwork, fx +   8, fy + 144, fx + 103, fy + 159, FILER_COL_1 );
  602.     frame( egbwork, fx +  23, fy + 175, fx +  56, fy + 192, FILER_COL_1 );
  603.     frame( egbwork, fx +  21, fy + 173, fx +  58, fy + 194, FILER_COL_1 );
  604.     frame( egbwork, fx +  71, fy + 175, fx + 104, fy + 192, FILER_COL_1 );
  605.     frame( egbwork, fx + 112, fy +  24, fx + 335, fy +  39, FILER_COL_1 );
  606.     frame( egbwork, fx + 112, fy +  48, fx + 335, fy + 191, FILER_COL_1 );
  607.     button_off( egbwork, fx + 344, fy +  48, fx + 359, fy + 159 );
  608.     button_off( egbwork, fx + 344, fy + 160, fx + 359, fy + 175 );
  609.     button_off( egbwork, fx + 344, fy + 176, fx + 359, fy + 191 );
  610.     button_off( egbwork, fx +  16, fy +  32, fx +  31, fy +  63 );
  611.     button_off( egbwork, fx +  80, fy +  32, fx +  95, fy +  63 );
  612.     frame( egbwork, fx + 344, fy +  48, fx + 359, fy + 159, FILER_COL_1 );
  613.     frame( egbwork, fx + 344, fy + 160, fx + 359, fy + 175, FILER_COL_1 );
  614.     frame( egbwork, fx + 344, fy + 176, fx + 359, fy + 191, FILER_COL_1 );
  615.     frame( egbwork, fx +  16, fy +  32, fx +  31, fy +  63, FILER_COL_1 );
  616.     frame( egbwork, fx +  80, fy +  32, fx +  95, fy +  63, FILER_COL_1 );
  617.     frame( egbwork, fx + 354, fy + 7, fx + 366, fy + 15, FILER_COL_4 );
  618.     frame( egbwork, fx + 358, fy + 3, fx + 370, fy + 11, FILER_COL_4 );
  619.     line( egbwork, fx + 18, fy + 47, fx + 18, fy + 48, FILER_COL_1 );
  620.     line( egbwork, fx + 18, fy + 48, fx + 27, fy + 57, FILER_COL_1 );
  621.     line( egbwork, fx + 27, fy + 57, fx + 27, fy + 38, FILER_COL_1 );
  622.     line( egbwork, fx + 27, fy + 38, fx + 18, fy + 47, FILER_COL_1 );
  623.     line( egbwork, fx + 92, fy + 47, fx + 92, fy + 48, FILER_COL_1 );
  624.     line( egbwork, fx + 92, fy + 48, fx + 83, fy + 57, FILER_COL_1 );
  625.     line( egbwork, fx + 83, fy + 57, fx + 83, fy + 38, FILER_COL_1 );
  626.     line( egbwork, fx + 83, fy + 38, fx + 92, fy + 47, FILER_COL_1 );
  627.     line( egbwork, fx + 351, fy + 165, fx + 352, fy + 165, FILER_COL_1 );
  628.     line( egbwork, fx + 352, fy + 165, fx + 356, fy + 169, FILER_COL_1 );
  629.     line( egbwork, fx + 356, fy + 169, fx + 347, fy + 169, FILER_COL_1 );
  630.     line( egbwork, fx + 347, fy + 169, fx + 351, fy + 165, FILER_COL_1 );
  631.     line( egbwork, fx + 351, fy + 186, fx + 352, fy + 186, FILER_COL_1 );
  632.     line( egbwork, fx + 352, fy + 186, fx + 356, fy + 182, FILER_COL_1 );
  633.     line( egbwork, fx + 356, fy + 182, fx + 347, fy + 182, FILER_COL_1 );
  634.     line( egbwork, fx + 347, fy + 182, fx + 351, fy + 186, FILER_COL_1 );
  635.     paint( egbwork, fx + 24, fy + 47, FILER_COL_1 );
  636.     paint( egbwork, fx + 88, fy + 47, FILER_COL_1 );
  637.     paint( egbwork, fx + 352, fy + 167, FILER_COL_1 );
  638.     paint( egbwork, fx + 352, fy + 184, FILER_COL_1 );
  639.     button_off( egbwork, fx + 1, fy + 1 , fx + 16, fy + 16 );
  640.     for( j=0;j<=13;j++ ){
  641.         for( i=0;i<=13;i++ )
  642.             pset( egbwork, (i/2)*2+(j%2)+2+fx, j+2+fy, FILER_COL_4 );
  643.     }
  644.     font_kan_col( FILER_COL_4, FILER_COL_1 );
  645.     font_kan( strptn, page, POS( fx+32, fy+3 ), "ファイルセレクタ", 0 );
  646.     font_ank_col( FILER_COL_1, FILER_COL_4 );
  647.     font_kan_col( FILER_COL_1, FILER_COL_4 );
  648.     font_ank( strptn, page, POS( fx+36, fy+114 ), "Bytes Free", 0 );
  649.     font_kan( strptn, page, POS( fx+28, fy+178 ), "実行", 0 );
  650.     font_kan( strptn, page, POS( fx+76, fy+178 ), "取消", 0 );
  651.  
  652. }
  653. // 書き込みの際に容量が足りるかチェックする関数
  654. int        capa_check( char *name, long size )
  655. {
  656.  
  657.     UINT    a_c, s_p_c, b_p_s;
  658.     struct    find_t file;
  659.     struct    diskfree_t disk;
  660.     
  661.     _dos_getdiskfree( 0, &disk );
  662.     a_c   = disk.avail_clusters;
  663.     s_p_c = disk.sectors_per_cluster;
  664.     b_p_s = disk.bytes_per_sector;
  665.     if( _dos_findfirst( name, _A_NORMAL, &file )==0 ){
  666.         if( size>a_c*s_p_c*b_p_s+file.size )
  667.             return( 1 );    //容量が足りない
  668.         else
  669.             return( 0 );    //容量が足りる
  670.     }
  671.     else{
  672.         if( size>a_c*s_p_c*b_p_s )
  673.             return( 1 );    //容量が足りない
  674.         else
  675.             return( 0 );    //容量が足りる
  676.     }
  677.  
  678. }
  679.